Simplify previous change; again.

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index a5dd81dda8cc7b114c62ef49f239e2160839d5af..687837ac56f77cdd16adfb608f1edfcf6336d9b6 100644 (file)
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -108,8 +108,8 @@ LABEL may be a symbol or string."
        ;; Is this keyword already present in msg's keyword list?
        (let* ((header (rmail-get-keywords msg))
               (regexp (concat ", " (regexp-quote label) ","))
-              (present (not (null (string-match-p
-                                   regexp (concat ", " header ","))))))
+              (present (not (null
+                             (string-match regexp (concat ", " header ","))))))
          ;; If current state is not correct,
          (unless (eq present state)
            ;; either add it or delete it.